home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok20.lha / ComplexLib / txt / FFPMathLibExt.def < prev    next >
Text File  |  1993-08-15  |  1KB  |  49 lines
  1.  
  2.  
  3. (*********************************************************************
  4.  
  5.     :Program.       FFPMathLibExt.def
  6.     :Author.        Gary Struhlik  
  7.     :Address.    -
  8.     :Phone.      -
  9.     :shortcut.      [gs]
  10.     :Version.       1.0   
  11.     :Date.          06.10.1988
  12.     :Copyright.  PD
  13.     :Language.      Modula-II
  14.     :Translator. M2Amiga
  15.     :Imports.     -
  16.     :UpDate.     -
  17.     :Contents.     Zusätzliche mathematische Funktionen
  18.     :Remark.     Für den Amiga Modula-2 Klub / Stuttgart
  19.     :Remark.     Am 01.01.1989 mit M2Amiga 3.2d neu kompiliert
  20.  
  21. **********************************************************************)
  22.  
  23. DEFINITION MODULE FFPMathLibExt; (* für Datentyp FFP *)
  24.  
  25. FROM SYSTEM IMPORT FFP;
  26.  
  27. CONST
  28.  
  29.     ln10 = 2.302585;              (*  2.302585092994045  *)  
  30.     pi   = 3.141593;              (*  3.141592653589793  *)
  31.         e    = 2.718282;              (*  2.718281828459045  *)
  32.         ln2  = 0.693147;              (*  0.693147180559945  *)
  33.  
  34. PROCEDURE Round ( x : FFP ) : LONGINT;
  35.  
  36. PROCEDURE Sqr ( x : FFP ) : FFP;
  37.  
  38. PROCEDURE Arsinh ( x : FFP ) : FFP;
  39.  
  40. PROCEDURE Arcosh ( x : FFP ) : FFP;
  41.  
  42. PROCEDURE Artanh ( x : FFP ) : FFP;
  43.  
  44. PROCEDURE Fact ( x : FFP ) : FFP; (*  Fakultät  *)
  45.  
  46. PROCEDURE Sgn ( x : FFP ) : FFP;  (*   Vorzeichen -1.0, 0.0 oder +1.0  *)
  47.  
  48. END FFPMathLibExt.
  49.